home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / WWWworkbenchIB.lha / WWWworkbench / W4new.ibrx < prev    next >
Encoding:
Text File  |  1998-09-09  |  605 b   |  23 lines
  1. /* $Ver:W4new.ibrx 1.0
  2. *made by Andres Pääbo (c)1998:paabo@bancom.net
  3. */
  4. OPTIONS RESULTS
  5.  
  6.  ADDRESS 'IBROWSE'
  7.  
  8. W=OPEN('W4new','RAM:W4/W4new.html','Write') 
  9. htmlnew='<HTML><TITLE>Open Drawer </TITLE><BODY><CENTER><FONT SIZE=2><BR><BR><BR>SELECT DIRECTORY WITH REQUESTFILE<BR>(leave file field blank)<BR>
  10. (if you do select a filename, you will directly view that file instead)</BODY></HTML>'
  11. call writeln('W4new',htmlnew)
  12. close('W4new')
  13.  
  14. call setclip('newdrawer',1)
  15.  
  16.     'NEWWINDOW'
  17.     'GOTOURL file://localhost/RAM:W4/W4new.html'
  18. ADDRESS COMMAND  'Sys:RexxC/RX  WWWworkbench/WWWworkbench.ibrx'
  19.   
  20. EXIT 0
  21.  
  22.  
  23.